home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / text / edit / BareED.lha / BareED / GetDestDir < prev    next >
Text File  |  2000-08-02  |  433b  |  19 lines
  1. DELETE >NIL: ENV:dest_dir
  2. DELETE >NIL: ENV:temp_cpy_file
  3.  
  4. ASSIGN B_Temp: Ram:
  5.  
  6. RequestFile >ENV:dest_dir B_Temp: TITLE="Choose Volume and Drawer" DRAWERSONLY NOICONS SAVEMODE
  7.  
  8. ECHO >ENV:dest_dir2 `GetEnv dest_dir`
  9. COPY ENV:dest_dir2 TO ENV:dest_dir
  10. DELETE >NIL: ENV:dest_dir2
  11.  
  12. IF NOT EXISTS `GetEnv dest_dir`
  13.     MAKEDIR `GetEnv dest_dir`
  14.     ENDIF
  15.  
  16. IF NOT EXISTS `GetEnv dest_dir`.info
  17.     copy /BareED.info to `GetEnv dest_dir`.info
  18.     ENDIF
  19.